#!/usr/bin/env perl
# bind operator, =~
#

use utf8;
use strict;

print "Do you like Perl?";

my $chose = <STDIN> =~ /y.*(es)?/i;

if($chose){
	print "You said earlier that you like Perl, so ...\n";
	exit 1;
}

my $some_other = "I dream of betty rubble.";

if($some_other =~ m/\brubble\b/){
	print "Aye, there's the rub.\n";
}
